COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "WHLTST"
 00004 ENDMK
⊗;
BEGIN "WHLTST"

REQUIRE "HELIB[1,3]" LIBRARY;
REQUIRE "WHEEL" LOAD_MODULE;

EXTERNAL INTEGER PROCEDURE CWHEEL(INTEGER CODE);

INTEGER CODE, I;
EXTERNAL INTEGER IND, TVCAM;
LABEL LOOP, JUMP;

PRELOAD_WITH "RED", "BLUE", "GREEN", "CLEAR", "ALL", "COLORS", "READ";
SAFE STRING ARRAY NAMES[0:6];
DEFINE CRLF="'15&'12";

	CODE ← 6;
	SETFORMAT(3,0);
	OUTSTR("CAMERA=");
	TVCAM ← CVD(INCHWL);
	GO JUMP;

LOOP:	OUTSTR("CODES ARE :"&CRLF);
	FOR I←0 STEP 1 UNTIL 6 DO OUTSTR((NAMES[I]&"      ")[1 FOR 7]);
	OUTSTR(CRLF);
	FOR I←0 STEP 1 UNTIL 6 DO OUTSTR(CVS(I)&"    ");
	OUTSTR(CRLF&"CODE = ");
	CODE ← CVD(INCHWL);
JUMP:	I ← CWHEEL(CODE);
	IF ¬I THEN OUTSTR("YOU LOST"&CRLF&CRLF);
	OUTSTR(CRLF&"COLOR IS "&NAMES[IND]&CRLF&CRLF);
	GO LOOP;
	END;